home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / database / moviessh.zip / STORIES.BAS (.txt) < prev    next >
QuickBASIC Tokenized Source  |  1996-09-10  |  23KB  |  293 lines
  1. SOUND1
  2. QUIT>
  3. GETANOTHER
  4. CUSTOMERb
  5. ADDRESSg
  6. STATE
  7. PHONEC
  8. SUBDATE
  9. CREDITCARD
  10. CARDTYPE*
  11. CARDNUMBER
  12. EXPDATE
  13. LICENSE
  14. ITEMONE
  15. PRICEONE
  16. ITEMTWO
  17. PRICETWO7
  18.     ITEMTHREEC
  19. PRICETHREE
  20. ITEMFOUR
  21.     PRICEFOUR
  22. ITEMFIVE
  23.     PRICEFIVE
  24. ITEMSIX<
  25. PRICESIXH
  26.     ITEMSEVEN
  27. PRICESEVEN
  28. SUBTOTAL(
  29. TOTALv
  30. CHOICE
  31. LEAVEONE
  32. RETRIEVEONE
  33.     MESSAGETO
  34. LINEONE;
  35. LINETWOH
  36.     LINETHREEV
  37. CALENDAR
  38. MESSAGEFROM,
  39. MESSAGECVS
  40. SAVEMESSAGE
  41.     DISPLAYIT
  42. WHATTODOm
  43. PRINTIT
  44. PRINT
  45. NEXTONE
  46.     SEARCHFOR
  47. RANDON
  48.     RETRIEVE2
  49. RETRIEVETWO
  50. RETRIEVEo
  51. GETIT
  52. DISPLAY
  53. TALLY
  54.     SKIPTALLYb
  55. SKIPHEADER
  56. PAGEADVANCE
  57. PAGERADVANCE,
  58. LINETWOCHECKr
  59. LINETW0CHECKr    
  60. OPENFILE\
  61. SKIPLINETWOCHECK2
  62. SKIPLINETHREECHECKp
  63. LINETHREECHECKV
  64.     SAVEORNOT
  65. SAVEO6    
  66.     SKIPBLOAD
  67. ORIGMESSAGETO
  68. ORIGLINEONE8
  69. ORIGLINETWO
  70. ORIGLINETHREE$
  71. ORIGCALENDARb
  72. ORIGMESSAGEFROM
  73. ERASEALL<
  74. FINDIT
  75. SLEEP2Y
  76. ERASEDh    
  77. FINDNEXT
  78. SAVEORNOT2]
  79. SKIPTALLY2
  80.     ORIGLINE3
  81. NUMBER
  82. DONECOUNTINGx
  83. FOUND
  84.     SKIPPRINT
  85. INCREASE0
  86.     SKIPTHREE
  87. SKIPFOUR
  88.     SKIPTFOUR
  89. COUNTIT
  90. TWOT    
  91. THREEN
  92. ERRORHANDLER8
  93. AWAITKEY
  94. MENUB
  95. cCLEAR
  96. ERASEONE~
  97. ERASED2@    
  98. ALTER
  99.     WHATATODO
  100. SAVED
  101. HOLDON
  102. HOLDNO
  103. MAIN2
  104.     ENTERCODE
  105. CODEIN+
  106. NOTEMPTY
  107. NEWCODE
  108. CHANGE
  109. SKIPNOTEMPTYn
  110. LINEFOURe
  111. LINEFIVEI
  112. LINESIX
  113.     LINESEVEN
  114.     LINEEIGHT
  115. ORIGLINEFOUR
  116. LINEFOURCHECK
  117. SKIPLINEFOURCHECK^    
  118. ORIGLINEFIVE
  119. ORIGLINESIX
  120. ORIGLINESEVEN
  121. ORIGLINEEIGHT
  122. SKIPLINEFIVECHECK
  123. LINEFIVECHECK
  124. SKIPLINESIXCHECK
  125. LINESIXCHECK!
  126. SKIPLINESEVENCHECK7
  127. LINESEVENCHECK
  128. SKIPLINEEIGHTCHECKX
  129. LINEEIGHTCHECK
  130. SKIPTHECODE
  131.     ENTERMORE
  132. LINEE
  133. WHICH
  134. SELECT
  135. MONTH
  136. YEAR     
  137.     SHAREWARE
  138. SKIP20TH
  139.     SKIPEIGHT
  140. YEAROK
  141. REPLY
  142.     KEEPTRACK
  143. GETLAST
  144. GETHIGHEST|    
  145. HIGHEST
  146. GETNEXT
  147. DUPJ    
  148. INKEY
  149.     RETURNDUP
  150. ALTER1
  151. ALTER2
  152. ALTER3
  153. ALTER4
  154. ALTER5
  155. ALTER6
  156. ALTER7
  157. ALTER8
  158. ALTER9
  159.     SKIPCLOSE
  160.     SKIPLINES
  161. LINES
  162. STORY
  163. WHATISIT
  164. SKIPCALENDAR
  165. MAINSOUND1
  166. NOMORE
  167. MENU.000
  168.  PRINTER RESET. PRESS 2 TO RETRIEVE 
  169.   WRONG ENTRY  "
  170. routine to RETRIEVE message
  171. CRITERIA.ENT
  172. TEMPO2d
  173. TEXT.RET
  174. STORIES.REC"d
  175.  ALL RECORDS PRINTED "
  176. NONE FOR "
  177. ?                                                 
  178.               ARE YOU SURE YOU WISH TO ERASE THIS STORY PAGE(S)? Y/N?           
  179. TEXT.RET
  180.   THIS SINGLE RECORD HAS BEEN ERASED  
  181.                ARE YOU SURE YOU WISH TO ERASE THE ENTIRE YEAR? Y/N?             
  182. TEXT.RET
  183. STORIES.REC"d
  184.  ALL OF ST0RY HAS BEEN ERASED"
  185. LINES.000"
  186. ENTER 60, 66, OR 1 PLEASE!
  187.                            "
  188. TEXT.RET
  189.                               MOVIE STORY LINES"
  190.                 
  191.                 
  192.                                                   
  193.                 
  194.                                                   
  195.                 
  196.                                                   
  197.                 
  198.                                                   
  199.                 
  200.                                                   
  201.                 
  202.                                                   
  203.                 
  204. TEXT.ENT
  205.   TOO LONG  
  206. __________________________________________________   "
  207.  PLEASE ENTER DATA! 
  208. ________________________
  209. __________________________________________________
  210.   TOO LONG  
  211. __________________________________________________   "
  212.  THIS ENDS ENTRY - Y/N? 
  213. __________________________________________________
  214. _________________________"
  215.  THEN PLEASE ENTER YOUR TEXT! 
  216. ______________________________
  217.   TOO LONG  
  218. __________________________________________________   "
  219.  THIS ENDS MESSAGE- Y/N? "
  220. __________________________________________________
  221. _________________________"
  222.  THEN PLEASE ENTER YOUR TEXT! 
  223. ______________________________
  224. _________________________"
  225.  THEN PLEASE ENTER YOUR TEXT! 
  226. ______________________________
  227.   TOO LONG  
  228. __________________________________________________   "
  229.  THIS ENDS ENTRY - Y/N? 
  230. __________________________________________________
  231. _________________________"
  232.  THEN PLEASE ENTER YOUR TEXT! 
  233. ______________________________
  234.   TOO LONG  
  235. __________________________________________________   "
  236.  THIS ENDS MESSAGE- Y/N? "
  237. __________________________________________________
  238. _________________________"
  239.  THEN PLEASE ENTER YOUR TEXT! 
  240. ______________________________
  241. _________________________"
  242.  THEN PLEASE ENTER YOUR TEXT! 
  243. ______________________________
  244.   TOO LONG  
  245. __________________________________________________   "
  246.  THIS ENDS MESSAGE- Y/N? "
  247. __________________________________________________
  248. _________________________"
  249.  THEN PLEASE ENTER YOUR TEXT! 
  250. ______________________________
  251. _________________________"
  252.  THEN PLEASE ENTER YOUR TEXT! 
  253. ______________________________
  254.   TOO LONG  
  255. __________________________________________________   "
  256.  THIS ENDS ENTRY - Y/N? 
  257. __________________________________________________
  258. _________________________"
  259.  THEN PLEASE ENTER YOUR TEXT! 
  260. ______________________________
  261.   TOO LONG  
  262. __________________________________________________   "
  263.  THIS ENDS MESSAGE- Y/N? "
  264. __________________________________________________
  265. _________________________"
  266.  THEN PLEASE ENTER YOUR TEXT! 
  267. ______________________________
  268. _________________________"
  269.  THEN PLEASE ENTER YOUR TEXT! 
  270. ______________________________
  271. Press ENTER to retain same title, or type NEW title!
  272.                                                     
  273.                                                   
  274.                                                   
  275.  USE 50 CHARACTERS AS A MAXIMUM 
  276. __________________________________________________   "
  277.  ENTER MOVIE TITLE PLEASE! "
  278. __________________________________________________
  279. __________________________________________________
  280.                  PRESS S TO SAVE, OR R TO REDO MESSAGE!                         
  281.                                                                                 
  282. STORIES.REC"d
  283. IF CODE% > 30 THEN BEEP: BEEP: GOTO SHARE 'Activate this line for shareware version.
  284. TEXT.RET
  285.       Printer NOT ON, or OUT OF PAPER.  Check and press any key to continue!    
  286.                                                                                 
  287. SHARE.001"
  288. TEMPO2d
  289. STORIES.REC"d
  290. DUP.000"
  291.  NO MORE MATCHES "
  292.                  "
  293.